home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Tools / TWL_MODS / KERNETLM / TLM / DATEN / KDKS / HASE_1.KDK < prev    next >
Encoding:
Text File  |  2000-05-06  |  1.3 KB  |  48 lines
  1. ; Redcodeprogramm "Hase" mit Labels und Konstanten:
  2.  
  3. ; Definition von Konstanten
  4.  
  5. MarkD      EQU    500           ; Entfernung der Markierung vom
  6.                                 ; Programm
  7. MarkL      EQU    8             ; Laenge der Markierung
  8. CodeNr     EQU    42            ; Vergleichszahl
  9. FluchtD    EQU    1000          ; Fluchtweite
  10.  
  11. ; Anweisungsteil von "Hase"
  12.  
  13.   ; Aufbau der Markierung
  14.  
  15. A          MOV    Code      <MarkPos
  16.            DJN    -1        #MarkL
  17.            MOV   #MarkL      -1
  18.            MOV   #-MarkD-5   2
  19.            JMP    Pruef
  20. MarkPos    DAT   #0         #-MarkD-5
  21. Code       DAT   #0         #CodeNr
  22.  
  23.   ; Abtasten der Markierung
  24.  
  25.            DAT   #0                 #0
  26. Pruef      MOV   #-MarkD-7           -1
  27. Vergleich  CMP   #CodeNr            <-2
  28.            JMP    KopPrg
  29.            DJN    Vergleich         #MarkL
  30.            MOV   #MarkL              -1
  31.            JMP    Pruef
  32.   
  33.   ; Kopierroutine
  34.  
  35. KopPrg     MOV   #PrgLaenge         7
  36.            MOV   #E-KopZaehl+1      3
  37.            MOV   #A-FluchtD-KopAdr  3
  38.            JMP    KopAnw
  39. KopZaehl   DAT   #0                #0
  40. KopAdr     DAT   #0                #0
  41.  
  42. KopAnw     MOV   <-2               <-1
  43.            DJN    KopAnw           #0
  44. E          JMP   @-3
  45.  
  46. PrgLaenge  EQU   E-A+1                  ; Anzahl der Anweisungen
  47.            END
  48.